SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO








CREATE PROCEDURE [dbo].[SP_TASALD_CORP_Q03]
/*---------------------------------------------------------------------*/
/*----- Empresa          : OFISIS S.A.                            -----*/
/*----- Cliente          : OFISIS S.A.                         	  -----*/
/*----- Sistema          : Contabilidad                           -----*/
/*----- Modulo           : Empresa                                -----*/
/*----- Programa         : Reporte de ajuste por inflacion        -----*/
/*----- Nombre           : SP_TASALD_CORP_Q03                	  -----*/
/*----- Script           : TASALD_EMPR                            -----*/
/*----- Desarrollado     : Betsy Sanchez Arenas                   -----*/
/*----- Fecha            : 13/10/1997                             -----*/
/*----- Base de Datos    : MS SQL Server                          -----*/
/*----- Version BD       : 6.5                                    -----*/
/*----- Invoca a SP      :                                        -----*/
/*---------------------------------------------------------------------*/
/*---------------------------------------------------------------------*/
/*----- Modificado 1 por : Martin Garcia Farfan                   -----*/
/*----- Fecha Modifica   : 12/03/1999                             -----*/
/*----- Detalle Modifica : Estandarizacion                        -----*/
/*---------------------------------------------------------------------*/
/*---------------------------------------------------------------------*/
/*----- Modificado 2 por : Yessica Morales Taipe                  -----*/
/*----- Fecha Modifica   : 26/12/2000                             -----*/
/*----- Detalle Modifica : Migraci?n a SQL 7.0                    -----*/
/*---------------------------------------------------------------------*/
/*---------------------------------------------------------------------*/
/*----- Drop Proc SP_TASALD_CORP_Q03                              -----*/
/*----- Grant All On SP_TASALD_CORP_Q03 To PUBLIC  	          -----*/
/*----- SP_TASALD_CORP_Q03 '01', 1, 2000, 6                    	  -----*/
/*---------------------------------------------------------------------*/
@ISCO_EMPR	 	TD_VC_002,
@INNU_CNTB_EMPR		TD_IN_001_CONT,
@INNU_ANNO		TD_IN_004_ANNO,
@INNU_MESE		TD_IN_002_MESE

as
DECLARE 
 @CNNU_ANNO	 TD_IN_004_ANNO,
 @CNNU_MESE	 TD_IN_002_MESE,
 @CSCO_CNTB_EMPR TD_VC_020_CNTA,
 @CSTI_AUXI_EMPR TD_VC_001,
 @CSCO_AUXI_EMPR TD_VC_020,
 @CNTO_CARG_MESE TD_NU_016_004,
 @CNTO_ABON_MESE TD_NU_016_004,
 @VNNV_INFO_EMPR TD_IN_001,
 @VSCO_CNTB_CORP TD_VC_020_CNTA,
 @CSCO_CNTA_CORP TD_VC_020_CNTA

 Select @VNNV_INFO_EMPR = Max(Datalength(Rtrim(CO_CNTA_EMPR)))
 From	TMPLAN_EMPR
 Where	CO_EMPR = @ISCO_EMPR
 And NU_ANNO = 9999
-- And NU_ANNO=@INNU_ANNO
             
	
Declare CU_TASALD_CORP_Q03_1 Cursor
 For
  Select T1.NU_ANNO, T1.NU_MESE, T1.CO_CNTA_EMPR,
	 ISNULL(T1.TI_AUXI_EMPR,''), ISNULL(T1.CO_AUXI_EMPR,''),
         T1.IM_CARG_CNTB, T1.IM_ABON_CNTB, T2.CO_CNTA_CORP
  From	TASALD_EMPR T1, TMPLAN_EMPR T2
  Where	T1.CO_EMPR = @ISCO_EMPR
    and T1.NU_CNTB_EMPR = @INNU_CNTB_EMPR
    and T1.NU_ANNO = @INNU_ANNO
    and T1.NU_MESE <= @INNU_MESE
    and T1.TI_AUXI_EMPR Is NULL
    and T1.CO_AUXI_EMPR Is NULL
    and T1.CO_ORDE_SERV Is NULL     
    and Datalength(Rtrim(T1.CO_CNTA_EMPR)) = @VNNV_INFO_EMPR
    and T1.CO_EMPR =  T2.CO_EMPR
    and T1.CO_CNTA_EMPR = T2.CO_CNTA_EMPR
    and	T2.CO_CNTA_CORP IS NOT NULL
    and T2.NU_ANNO = 9999

 Open CU_TASALD_CORP_Q03_1;
 Fetch CU_TASALD_CORP_Q03_1
  into @CNNU_ANNO,	@CNNU_MESE,	 @CSCO_CNTB_EMPR, @CSTI_AUXI_EMPR,
       @CSCO_AUXI_EMPR, @CNTO_CARG_MESE, @CNTO_ABON_MESE, @CSCO_CNTA_CORP
 While	@@fetch_status = 0
  Begin
	Update TASALD_CORP
	   Set IM_CARG_MESE = IM_CARG_MESE + @CNTO_CARG_MESE,
	       IM_ABON_MESE = IM_ABON_MESE + @CNTO_ABON_MESE
	 Where NU_ANNO = @CNNU_ANNO and
	       NU_MESE = @CNNU_MESE and
	       CO_CNTA_CORP = @CSCO_CNTA_CORP

	Fetch CU_TASALD_CORP_Q03_1
	 into @CNNU_ANNO,      @CNNU_MESE,	@CSCO_CNTB_EMPR, @CSTI_AUXI_EMPR,
	      @CSCO_AUXI_EMPR, @CNTO_CARG_MESE, @CNTO_ABON_MESE, @CSCO_CNTA_CORP
  End
 Close CU_TASALD_CORP_Q03_1
 Deallocate CU_TASALD_CORP_Q03_1


/*------------------------------- Fin --------------------------------------------*/












GO
